home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / clone.txt < prev    next >
Encoding:
Text File  |  1996-04-23  |  2.8 KB  |  81 lines
  1. -=-=-=-=-=-=-=-=-=-=-=-=--=-
  2. -=-    Clone Detection   -=- 
  3. -=-=-=-=-=-=-=-=-=-=-=-=-=-=
  4.  
  5. Howdy Our_Bot!
  6.  
  7. Here is a good clone detector that I use and like.  To install this 
  8. paste the folowing lines in your popups.
  9.  
  10.  
  11. Clone Detection
  12. .Initialize: {
  13.   me Clone detection, initialising...
  14.   set %tempnick 1
  15.   :start
  16.   if %tempnick > $nick(0,#) { me Initialised. | .rlevel 1 | halt }
  17.   else .guser 1 $nick(%tempnick,#) 2
  18.   inc %tempnick 1
  19.   goto start
  20. }
  21. .Check: {
  22.   /me Clone detection, processing channel...
  23.   set %clonecount 0
  24.   set %number 1
  25.   set %comparenick ""
  26.   set %compareaddress ""
  27.   set %clonenick "" 
  28.   set %cloneaddress ""
  29.   :start
  30.   if $address($nick(%number,#),3) != $null {
  31.     set %firstaddress $address($nick(%number,#),3)
  32.     set %firstnick $nick(%number,#)
  33.     %comparenumber = %number + 1
  34.     :firstcompare
  35.     set %compareaddress $address($nick(%comparenumber,#),3)
  36.     set %comparenick $nick(%comparenumber,#)
  37.     if $address($nick(%comparenumber,#),3) = $null goto noclone      
  38.     if %firstaddress = %compareaddress { 
  39.       inc %clonecount 1       
  40.       /me Clone %clonecount $+ : Ö $+ %firstnick & %comparenick $+ Ö
  41.       /me                        Ö $+ %compareaddress $+ Ö
  42.     }
  43.     else goto noclone    
  44.     :noclone
  45.     inc %comparenumber 1
  46.     if $address($nick(%comparenumber,#),3) != $null goto firstcompare
  47.     else /inc %number 1
  48.     goto start
  49.   }
  50.   else /me Total Clones detected: %clonecount
  51.   /me Clones detected using: (»`╖╕╖>L∞GHtz ╪·T<╖╕╖`»)
  52.   .rlevel 1
  53. } 
  54.  
  55. Happy Clone Dectecting Our_Bot!
  56.  
  57. Original idea buy _Qu^rtz_ and The Aut0Bot Modified by Hogan Humphires.
  58.  
  59.                           .___. 
  60.             ==(W{========-) * (   ,,          \||/
  61.               ||  (.--.)  | * |)'))')),   o___@  |    /
  62.               | \_,|**|,_/| * |'),),))')==|,,,,__).,/ (  
  63.               `\ ' `--'   /\_/)),))),('       (_| /  ( (
  64.                /`\__..__/'\  ''' ''          (__|   |" (
  65.               (   | .  |   )  Come fly on:  (___|  (   (
  66.               )  /==ºº==\  (     DALnet    (____| | /\/ (
  67.    __________/__/~~\__/~~\__\_____________(_____|_______(____________   
  68.     \            |                                    |            /
  69.       \          |          Hogan Humphries           |          /
  70.         \        |              Venatori              |        /
  71.           \      |        hogan5@ix.netcom.com        |      /
  72.             \    |   The most common element on the   |    /
  73.               \  |        earth is STUPIDITY!!        |  /
  74.                 \|____________________________________|/
  75.                           | I WILL  NOT REST |             
  76.                           |     IN PEACE     |
  77.                          /                    \
  78.                       _/    -- Go Gators! --    \_
  79.                      |____________________________|
  80.  
  81.